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MODULE RECSELECT 
(ZTITLE ye Fo} *detten" 
IDENT = ‘V04-000') = 
BEGIN 


’ 
, | 
See AeA E AAA EHEAAAAHEREAAAHAAATTEHHAAAAAET AA AEAAAATARAAT AAR EAA ATE eS 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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; 1 

: 1 

5 1 

; 1 

Ps 1 1 ry 

Py 1 1 @ 

Ps 1 1 ry 

Ps 1 1 ® 

: 1 1 ® 
Ps 1 1 ry 

: | 
Ps ® 

3 1 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ha ! ? TRANSFERRED. * 

Ps : ry 

F 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 

3 : - CORPORATION. * 

Py ; * 

3 8 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: 4 $ : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

4 i 

: 09 ; Seeadebteanbnehiensineetbinimisiehetbanbaieeabenabbeusinninthaerentettes 

; 0031 1 !+4¢ 

: 0038 ! } FACILITY: ERF, Error Log Report Generator 

: 0034 1 | ABSTRACT: 

3 5 B83 1! 

3 6 036 1! This routine will determine if the previously read entry 

: 38 sit $4 : meets user specified selection criteria. 

: 39 0039 1 | ENVIRONMENT: 

a O04) | | VAX/VMS operating syst 4 

3 ‘ operating system, user mode. 

: 4 Bee 1 i 7 wile 

: rt 00s : : AUTHOR: Sharon Reynolds, CREATION DATE: January 1983 | 
: 45 5 1 ! Modified by: 
; 46 Bds6 Zz | 
; 6367 0047 1! v03-022 EAD0179 Elliott A. prayton 66-Jul-1984 

: $8 3 : } Obtain LSTLUN value from SYECOM. 

: 50 50 1: v03-023 SARO274 Sharon A. Reynolds 19-Jun-1984 

3 33 1 1! - hedeq another check for device selection and entry 

; § 26 1! selection combinations to fix a bug with 

; 36 37 : : /INC=(MF VOLUME) and /INC=(TAPE,VOLUME). 

= 055 1! v03-022 £AD0179 Elliott A. Drayton 23-May-1984 
3 2$ 26 1! Correct the passing of the address of device name 
; 57 1! in VERIFY_DEVICE. 
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| 

; , } 
3 28 2 1! v03-021 SARO267 Sharon A. Reynolds ioafeye ives | 
o. oe 1} - Updated VERIFY_DEVICE to support longer device names. 
— 1! - Added check for unknown entry output to replace code 
: $¢ § : that was previously removed. 
: 66 4 1: v03-020 SARO254 Sharon A. Reynolds 23-Apr-1984 
3; 6 2. 33 Added flag to /before check to stop execution when 
: 68 ; last entry found. | 
; 68 8 i i v03-019 £AD0151 Elliott A. Drayton 14-Apr-1984 | 
: ; i } } Fixed structure names in VERIFY_DEVICE. | 
ee 071 1: v03-018 EAD0141 Elliott A. Drayton 12-Apr-1984 | 
s f BR78 : Removed reference to EMBETDEF. 
PY : | 
3; «674 0074 1! v03-017 SARO248 Sharon A. Reynolds 10-Apr-1984 
a +i e Moved the unknown keyword tests to the verify entry 
; 8978 1! routine so it would go through same tests as any 
; a 4 : other /include or /exclude entry selection. 
: 79 $079 1 i v03-016 SARO245 Sharon A. Reynolds 4-Apr-1984 
3 59 s9 : } Added EMBSLOGMSP to device type entry table. 
: ; | 
3; & 414 1! v03-015 EAD0119 Elliott A. Drayton 23-Mar-1984 
$ 8 0085 1! Remove support for /UNKNOWN qualifier and added support 
: Be Sone : : for the NOWN keyword. | 
: 86 86 i v03-014 EAD0115 Elliott A. Drayton 9-Mar-1984 
: 4 fi : : Removed emb_buf and syecom_buf. 
> 89 0089 1} v03-013 SARO189 Sharon A. Reynolds, 13-Feb-1984 
:; 90 4 1! - Added ‘CS' device name support to device table search 
s 6«&9T 1 2a routine. 
: 943 : - Added additional test for entry summary update. 
: 94 1/ V03-012 SARO184 Sharon A. Reynolds, 17-Jan-1984 
3 5 1! - Fixed a bug in the output of the erf_unkentry message. 
; a8 1! - Added code to set the end value indicator when 
: 44 944 : the last selected entry (/entry) is found. 
; 99 1/ v03-011 SARO181 Sharon A. Reynolds, 13-Dec-1983 
..% 1 1! - Remove descriptor references. 
: 101 101 1! - Add device attention keyword support. 
eB § 1 § 1! - Add |m/sp entries to device errors entry List. | 
:; 10 1 1! - Add alee entry check for bus class selections. | 
3 Hr 106 1! = Removed logmessage neyuerd. 
; 105 105 1! - Add unsolicited_mscp keyword support. | 
: : : } - Added incomplete entry message. 
: 198 1 ; 1 V03-010 SARO176 Sharon A. Reynolds, gtonoys 1985 
: 109 109 1! - Removed un-necessary check for outputting all | 
: 110 110 1! entries. 
; W) 1) ! - Changed reference to report type. 
: 118 118 1 v03-009 SARO152 Sharon A. Reynolds, 7-0c t-1983 
; (194 1144 «215! = Added code to output informational messages when 
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and oY entry is encountered. 

- Added the code that counts ntervening lLogmessage 
logstatus entries 

= Re-structured the “include and /exclude entry 
checks to fix a bu ug. 

- Made Fine lud=disks exclude=db1 a valid command. 


v03-008 pano' 59 Sharon A. eed rte ode 20-Sep-1983 
Fixed a bug in mount/dismoun output. Fixed an out 
of range loop. 


v03-007 SAROI2e Sharon A. Reynolds, 23-Aug-1983 
Re-wrote translate_class *seut ine for use with: the 
permanent device tables. 


V03-006 SAR0032 Sharon A. Reynolds 22-Jun-1983 
Replaced emb_stuf with emb_buf definitions. Fixed bug 
in dc$_bus selection. 


5 
5 
8 
5 
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v03-005 SARO029 Sharon A. Reynolds, 11-May-1983 
8 Removed support for logstatus keyword. 
8 v03-004 SARO013 Sharon A. Reynolds, 18-Apr-1983 
8 Deleted the log orssege and status message entries 
0139 from the ‘control’ table. Added call to update 
0 re entry summaries. 
$g v03-003 SARO003 Sharon A. Reynolds 5-Apr-1983 
014 Removed the volume_output flag definition. changed 
44 any references to Volume_output flag so they refer 
8 rB to it from SYECOM. 
8 <3 v03-002 SAR000S Sharon A. Reynolds, 5-Apr-1983 
3 re Fixed /exclude selection bug. 
0150 v03-001 pAnces Sharon A. Reynolds, 29-Mar-1983 
0151 Fixed /include="device name’, volume mount/dismount 
26 selection problem. 
8, | i 
55 
ae 
8 Required files 
60 REQUIRE 'SRCS$:ERFDEF.REQ' ERF defintions 


= 


REQUIRE "LIBS:PARSERDAT.R32° ; 


ERF Derser. data definitions 
REQUIRE ‘SRC: RECSELDEF .REQ’ 3 


EMB, SYECOM, LOGMSG, LOGSTS, and 
VOLMOUNT eld def intions 


: Table of contents 
i 
FORWARD ROUTINE 


Record_selected, ! Verify entry against selections 
Verify_entry, ' Verify the entry type 
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Device_t entry, 
vert ty. “device velass, 
Veri fy .de 

Translate wre H 


' 
Declare external routines 


EXTERNAL ROUTINE 
Exec_image 
inteFvens, increment 
Intervene_outpu 


AX-11 Bliss-32 V 
ERF .SRCJRECSELEC 


‘sa Sevres type entr 
rile the device clas 7” , 


i Translate dev 


pod oct 25:50:05 


ce cless to a name 


! Execute an image 


Search_queue:  Seiressina. mode aie » ! Search queve of devices selected 


Validate_packet; 
! 
Declare external Literals 


EXTERNAL LITERAL 
Erf_incentry, 
Erf_unkclass, 
Erf_unkcpu, 
Erf_ -unkentry, 
Erf_unktype ; 


i] 
: Declare external data. 


EXTERNAL 


s the packet validate for the cpu it was logged on. 


Class_dir: REF S$SBBLOCK, 


Device_class, 
Device. type, 


E 
Exclude_flag, 


SBBLOCK PSECT (EMB), 


Exclude_mas REF $BBLOCK, 


Include_ neeks REF $BBLOCK, 
Option_flag: REF $BBLOCK, 
Parser_data: REF $BBLOCK, 


Processor_type, 
Summary _ Glapotcher. addr, 


Summary_ flag: REF SBBLOCK, 


Syecom: 
Unknown_entry : 
1 
: Declare Literal definitions 
LITERAL 
Incomplete_entry = 128 ; 
t 
: Own storage definitions 


Lstlun: 
i selection an... Sayre, 
Device_status: BYTE, 


S$BBLOCK PSECT (SYECOM), 
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tis 32 7 
4-Sep-1 RF .SRCIJRECSELECT 832; 
3 y 797 «1 Dev_cls_status: BYTE, 

3 0 138 1 Dev_typé_entry_sts: BYTE, 

; 1 799 #1 Entry _status: BYTE 

; é 800 1 Validate_pkt_sts: Initial {false ‘ 

3 0801 1 Bugchks: VECTOR (3,byte,unsigned] ! Bugcheck type entries 

; 80¢ 1 Initial (byte 

; 5 03 1 (EMBSK_CR, ! Crash 

; 804 1 EMBSK_SBC ' System bugchecks 

; f 805 EMBSK-UBC)), /' User bugchecks 

3 9 Hi 1 Control: VECTOR (7 byteunstgned ! Control type entries 

; 240 808 1 Initial (by & 

: 241 9 1 (EMBSK CS, ! Cold re-start 

; rt 0810 1 EMBSK_AF, ! New file created 

3s 26 0811 1 EMBSK_WS, ! Warm re-start 

> 244 oie 1 EMBSK_TS, ! Time stamp 

3: 245 813 1 EMBSK_SS, ' System service message 

: 246 0814 1 EMBSK_OM ! Operator message 

3 rtf Bai? : EMBSK-NMS), ! Network message 

: 249 0817 1 Cpu: VECTOR C8 byte unsigned’ ! Cpu type entries 

; 250 0818 1 Initial (byte 

3 @1 819 1 (EMBSK AW, } hexpehroneus write error 
; 26 0820 1 EMBSK_OBA, ! Unibus adapter error 

; 25 0821 1 EMBSK_MBA, ! Massbus adapter error 

; 254 08 ¢ 1 EMBSK_UI, ! Undefined interrupt 

; 22 08 1 EMBSK_BE, ! Bus error 

3 6 0824 1 EMBSK_SA, ' $B! as 

S gor 0825 1 EMBSK_SI ! 11/750 fault thru SBI vector 
; 28 08 $1 EMBSK-UES), i 11/730 unibus error 

; 260 0828 1 Dev_errors: VECTOR (3 Syteunetgneds ! Device error entries 

; 261 8 9 1 Initial (by e 

3 o¢ 0 1 (EMBSK_DE, ! Device Errors 

; 26 3 1 1 EMBSK_SP ! Logstatus entries (mscp) 
3 ee bass : EMBSK-LM)), ! Logmessage entries (mscp) 
3 $e OB 32 1 Memorys: VECTOR C2 byte.unsigned) ! Memory entries 

> 267 0835 1 Initial (by e 

; 268 836 1 (EMBSK_SE ' Soft ECC error 

3 44 tt : EMBSK_RE)S, ! Hard ECC error 

: 271 0839 1 Volume: VECTOR C2 byte.unsigned’ ! Volume change entries 
> 2? 0840 1 Initial (byte 

: 2 841 1 BSK_VM ' Volume mounts 

> 27h OB4¢ 1 EMBSK_0D)5 ; — ' Volume dismounts 

3 ars 0845 1 


RECSELECT Entry Validation 15- 
at , 


=1984 23:52:05 VAX=11 Bliss-32 V4.0-76 p 
1oke 93:38:02 — FeRr  SnPbAEesErett o35- age 38 


77 GLOBAL ROUTINE RECORD_SELECTED = 
Begin 


UEWN—OOMw 


entry against the selections. It return TRUE if the 
current entry matches or return FALSE if the current entry 
does NOT match. 

i Calling sequence: 
RECORD_SELECTED () 

i Input parameters: 
None 


i Output parameters: 


Merron 
OODOODO000O I~ 
SSRLEAEANLESSLSALAVSS 


None 


IA WWIII Inonononononononorny 


LOC 


ooooo 
VMrwn— 


AL 
Include_status: BYTE 
sntetat (true), 


B 
Initial (true) ; 
istlun = .syecom Csye$l_lstlun]; 


1 
: Validate the packet for entry/cpu type and device class/type. 


it NOT (VALIDATE_PACKET ()) 
en 
Unknown_entry = true 


Exclude_status: 


Else 
Unknown_entry = false ; 


termine if /summary selected and update that entry summary 


De 
information. 
( 


28 


‘ 
i 
i 
i 
I 


ooo 


f 


aglsum$v_entry 


-option_flaglopt$v_summary_qual] AND 
(cummety tt ¥3"OR 


G0 00: 
oo 
Wms 


-Ssummary_flag 


sum$v_all_summ] OR 
-Summary_flag 


me sum$v_histogram])) 


oo 


en 
Exec_image (summary_dispatcher_addr,(stlun,ZREF (entry _summ_upd)) ; 


coNO 


1 

abd | 

: Functional Description: 

This routine will determine what selection qualifiers are 

specified and match the appropriate fields in the current 

' 

' 

' 

' 

‘ 

1 

' 

' 

' 

' 

' 

‘ 

' 

| 
} 

4 | 
4 
; | 

: If incomplete entry report the error. 


WAI IIRPOPOPIPONIPPINYNYD 2 | | OOO 
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- RF .SRCIR (2 
; 901 
3 5 an8 it (wor Bt at ett oyalig entry]) 
3 $04 on etten $w_hd_entry eeokstere vontey?i | 
: 338 905 
; 9 B08 Res ert er 1, .embCemb$w_hd_entry]); | 
; 340 90 urn fal 
: 341 0908 
s 36 0909 
: 34 0910 3! 
: 44 0911 ! Determine whether the volume mounts/dismounts should be output or just 
; rf O38 ; label information saved from the entry. 
3; 347 914 If (.exclude_maskCexc$v_volume] AND | 
: 348 0915 4 (, include_masklinc$V severe select] 
: 349 0916 4 -include_maskCinc$v_dev_class_select 9° 
: 350 0917 4 - inc Lude_maskLinc$v_dev_attentions 
: $2 0918 4 -include_maskCinc$v_dev_errors] OR 
3 26 0919 cine luge. ~maskLinc$y_dev gt ioroutss)) )) AND 
; = 0920 (NOT .inglude_maskCinc$v_ volume 
; 354 3s) NOT option flaglopt$v_output_ sigs 
; 355 09 ¢ Then 
; 356 bas ! : 
3 337 0924 ! Indicate that volume mount/dismount entries 
; 358 0925 2 ! should not be output. 
3; 359 0926 § ! 
; 360 Bese Syecom(sye$b_volume_output] = false 
: 361 0928 2 Else 
3 $08 3444 2 Syecom(sye$b_volume_output] = true ; 
s 3% 0930 2 
> 364 0931 2! ; 
; ec2 O35 3 Determine if the /ENTRY qualifier was specified. | 
; 367 0934 § If .option_flaglopt$v_entry_qual)] 
; 368 0935 Then 
; 369 0936 2 
: 370 0937 2 /Entry specified, get the address of the entry selection 
: 371 0938 2 i data and determine if the number of this ent ry 
3s 372 0939 2 i is within the selected range. 
3 Sip 0940 § i 
: 374 0941 Be gin | 
: 3575 094 If .syecom{sye$l_reccnt] LSSU .parser_datalerl$l_end_entry] 
Py 376 094 Then | 
: £277 bang 
; 378 945 i This entry should be within the selected range, ensure 
3 Ly 4 Be } the entry number is greater than the starting entry selection. 
3; «(381 948 4 Begin 
; ; BCP ? Ua NOT (.syecom(sye$l_reccnt] GEQU .parser_datalerl$l_start_entry]) 
: 384 0951 4 | 
: 385 Ba6 4 i Entry is NOT within the selected range, return to calling 
3 a6 953 4 routine, 
3 954 4 
; 388 955 4 Re: false ; 
; 389 326 4 n 
; 390 957 3 Else 


8 
Entry Validation 18.50 
14-Se 


SOS SL SCS LL OSS 
PAAAAOOOO UM 
CODON US W000 


GEARUN ILS SOVRARUS SS SONAR av soSewe AP oror Ooo ae 
CODDDOOODOOOOC0O 


FP ot ot at et at et etd dk kee ek ee ek kek el tak ek ea Dek tek ad et et 


rs 
Ww 
oO 


(WAIN AIS IUEROPOPOPUNONINUPUNIPUIUW EE & BWW NIIooNPNNPONUNONUPUWI EE BEBE EEE PUI 


p-l9be f2:c8:02 — Lenr sae 


Entry is NOT within the selected range, return to calling 
routine. 

Begin 

; -syecom(sye$l_reccnt] GEQU .parser_datalerl$l_end_entry] 
en 


te OD a ee eee 


| Indicate that last selected entry was found. 
Syecom(sye$b_end_value] = true ; 
Return true ; 
End; 


Determine if the /BEFORE qualifier was specified. 
if -option_flaglopt$v_before_qual] 
Then 


i Determine if the date/time that this entry was recorded falls 
! within the range of selected date/times. 


Begin 

1f COMPARE QUAD (embCemb$q_hd_t ime] GEQU, 

t parser_dataLer($q_end_date)) 
en 


i This entry is NOT within the selected date/time range, 
return to the calling routine. 


Begin 
Syecom(sye$b_end_value] = true ; 
Return true ; 
End ; 
End ; 


! Determine if the /SINCE qualifier was specified. 
if .option_flaglopt$v_since_qual) 
Then | 


poure that the entry date/time is greater than the starting 
i 


E 

time/date selection. 

Begin 

If NOT COMPARE_QUAD(embCemb$q_hd_time] ,GEQU, $ 

a parser_dataLer($q_start_dateJ) 
en 


i The entry does NOT meet that selection criteria for date/time, 
return to the calling routine. 


Return false ; 


Ra Se Be Se Be Be Be Be Oe He BeBe Se Be Fe Se Ge Se Se Se Se Fe Se Se Se Se Se Se Se Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Sees ee Se Fe Se Sete Se Se teas 
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: 448 1015 End ; | 
: 4469 1 1 
; 450 101 : 

3 ? ; : 18 Determine if the /SID_REGISTER qualifier was specified. 
3; 6 1020 2 If .option_flaglopt$v_sid_reg_ qual] 
3 t2 } § Determine if the entry sid matches the selected sid. | 
; 458 1025 Begin | 
: 459 1 § If NOT .parser_datalerl$l_sid_selection] EQLU .embCemb$l_hd_sid] 
Bid) few 

; 46 1029 ! Entry sid does NOT match selected sid, return to calling 

; 46 1030 ' routine. 

> 464 1031 ‘ 

; 465 10 § Return false ; 

: 466 103 : 

; 467 1034 

: 468 1035 Device_status = false ; 

; 469 1939 Dev_cls_status = false ; 

: 470 10 Entry_status = false ; 

; 471 1038 

3 rt Io Dev_type_entry_sts = DEVICE_TYPE_ENTRY () ; 

3: 474 1041 If .option_flaglopt$v_include_qual] 

: 475 1306 Then 

: 476 104 Begin 

; 477 1044 Exclude_flag = false ; 

: 478 1045 

: 479 1046 If .dev_type_entry_sts OR 

: 480 1047 -eabbenBgu_hdcentry] EQLU EMBSK_VM) OR 

; 481 1048 4 (.embLemb$w_hd_entry] EQLU EMBSK_VD) 

; 48 1049 i Then 

; 48 1050 Begin 

: 484 1051 4 If .include_maskCinc$v_device_select] 

; 485 1936 4 Then 

: 486 + 5 Begin 

: 487 1054 : If VERIFY_DEVICE () 

; 488 1055 Then 

: 489 1938 5 Device_status = true 

; 490 1057 5 

; 491 1938 P) Device_status = false ; 
; 49 1059 4 : 
; 49 1060 4 
: 494 1061 4 If .include_maskCinc$v_dev_class_select] 

3; 495 1008 4 Then 
; 4% 106 Begin 

3; 497 Hs: If VERIFY_DEVICE_CLASS () 

; 498 1065 Then 

: 499 1906 Dev_cls_status = true 
3 200 138 Else 

; 501 1 3 Dev_cls_status = false ; 

3 4 108 4 End ; 

; 9 0 ; End ; 

; 504 1071 
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VO5 2000 / 127868-1 382 $3:38:03 AF SREIRECSELECT 304 . (2) 
3 5 1 ie ; If .include_maskCinc$v_entry_select] 
3 107 Then 
3 8 1074 4 Begin 
3 8 1075 4 If VERIFY_ENTRY () 
; 509 1076 4 Then 
; $10 1077 4&4 Entry_status = true 
: 511 1078 4 
3 \§ 1079 & Entry_status = false ; 
s 31 1080 ; 
Pm ie 
; 1$ J : If (.include_maskCinc$v_device_select] AND 
; i : Se -dev_type_entry_sts AND .device_status) OR 
; 519 1 4 (. inc lude_maskCinc$v_dev_class_select] AND 
; 3 9 : 4 ; -dev_type_entry_sts AND ‘dev_cTs_status) OR 
: ¢ 138 4 (. inc lude_maskCinc$v_entry_select] AND .entry_status) 
; en 
; 524 1091 Include_status = true 
3 deo 1098 se 
> 526 109 Include_status = false ; 
3 «Der 1094 
; 528 1095 
3 dey 1998 If .include_maskCinc$v_device_select] AND 
; 5350 109 -include_maskCinc$v_entry_select 
3 Do 1098 Then 
3 236 1099 4 Begin 
5 : B's ? Include_status = false ; 
3 Doe 1136 4 If .dev_selection_required 
3 370 1103 4 Then | 
3 Dor 1104 5 Begin | 
; 538 1105 5 If (.entry status AND .device_status) OR 
; 44 1138 g (.dev_type_entry_sts AND .device_status) 
; $41 1108 5§ Include_status = true ; 
3 206 1109 5§ n 
3; «54 1110 4 Else 
; 544 1111 2 egin 
; 545 1ti¢ If .dev_type_entry_sts AND .device_status 
; 546 1113 5 Then | 
3: 547 1114 6 Begin 
; $8 1115 6 Include_status = true ; 
: 54 BE 3 End 
; $50 111 Else 
: 551 1118 g Begin 
r 236 1119 If (NOT .dev_type_entry_sts AND .entry_status) 
3 32 1120 6 Then 
; 554 1121 g Include_status = true ; 
3 5339S 11 ¢ ; 
3 28 11 4 End ; 
3 : 1 : End ; 
: 5 11 $ If .include_maskCinc$v_dev_class selects AND 
: 560 11 .includé_maskCinc$U_entry_seTect 
; «4561 1128 Then 
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RES, i Bey mate IERSEHMA GERGE br that 


4.0 
7.832; 


> 536 11 & Begin : 
3 ef 3 é ? Int Lude.stotus = false ; ; 
3 ; 
; 565 11 4 If .dev_selection_required | ‘ 
CS Rete fit bee 7 
: egin * 
3; 3 1135 2 I tentry status AND .dev_cls_status) OR ‘ 
; $9 1} § ; (.dev_fype_entry_sts AND .dev_cls_status) : 
: $71 11 lude_st : | : 
r 1139 ; tnd Include_status = true | 
Ps se | e 
wm ig P'S aves sonra tm dah pel 
; .de e_entry_sts .de s_status ° 
ig ee § peg tei weer @ eat 
; egin | ° 
; 78 1145 6 Inelude_status = true ; | : 
; 580 107 § Else ; 
; 581 1148 § Begin : 
; He 1162 [ If (wor -dev_type_entry_sts AND .entry_status) : 
: : HS g Include_status = true ; | : 
3 nd ; : 
; > 11 : 4 End ; 3 
; 3 1154 End ; : 
; 588 1155 3 
3 +4 1128 End ; | : 
: 591 1158 2! ; 
: 4 4 ‘If not /include option then include_status = false : 
| BHR Be scptton.ttagtontsy exclude qual ; 
; -option_flaglo exclude_qua 3 
; 38 1168 Then . a et - 3 
.. 1164 Begin : 
: 43 1192 Exclude_flag = true ; ; 
: 600 116 If .dev_type_entry_sts OR ; 
3; 601 1168 (,emb enbeu_hd_entry) EQLU EMBSK_VM) OR 3 
; $68 1397 4 (.embCemb$w_hd_entry] EQLU EMB$K_VD) 3 
Bea G ithe : 
3 egin 3 
; 605 1176 4 If oxctude_maskCexcSv.device.setect} | : 
; 606 11735 4 Then 3 
; 607 1174 : Begin 3 
: ons V2? Ls VERIFY Device () : 
; 610 1179 3 Device_status = true F 
3: 611 1178 2 Else : 
3 oi¢ 4 ? ‘ Device_status = false ; | : 
; nd ; : 
; 614 1181 4 : 
3 615 11 3 4 If .exclude_maskCexc$v_dev_class_select] 3 
3 616 11 4 Then 3 
; «(61 1184 2 Begin : 
; 618 1185 If VERIFY_DEVICE_CLASS () : 
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mw 
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hen 
Dev_cls_status = true 
Else 
: Dev.cls_status = false ; 
End; 


If .exclude_maskCexc$v_entry_select] 
Then 


NOUS WN 


Begin 
i VERIFY_ENTRY () 


en 
Entry_status = true 
Else 


Entry_status = false ; 
End ; 


wr 


If (.exclude_maskCexc$v_device_select] AND 
-dev_type_entry_sts AND .device_status) OR 


RE ORE EE LEE S 
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(.exclude_maskCexc$v_dev_class_select] AND 
-dev_type_entry_sts AND Tdev_cTs_status) OR 
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(.exclude_maskCexc$v_entry_select] AND .entry_status) 
Exclude_status = false 


If .exclude_maskCexc$v_device_select] AND 
-exclude_maskCexc$v_entry_select 

Then 
Begin 
Exclude_status = true ; 


If .dev_selection_required 
Then 
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DONOUELWN OOS yOu 


Begin 
Hl t entry status AND .device_status) OR 
(.dev_type_entry_sts AND Vdevice_status) 


MMMNMNNNNIN) 2 2 


| 
“Exclude_status = true ; | 
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660 en 

661 Exclude_status = false ; 

66¢ n 

66 Else 

664 egin : 

665 ; If .dev_type_entry_sts AND .device_status 
$06 Then 

66 Begin 

668 5 Exclude_status = false ; 

669 End 

670 Else 

671 3 Begin 

67 If (NOT .dev_type_entry_sts AND .entry_status) 
67 40 The 

674 41 

675 42 3 


n 
Exclude_status = false ; | 
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ys 2500 . 12-808-198e 93:36:93 RF SREIRECSELECT o3204 . 2 
; 67 12463 4 End ; 
i ey et 
; $79 1 ¢$ If .exclude_mask( xc$y_dev class select AND | 
: 124 -exclude_masklexc$v_enfry_select 
3 1 1 $8 Then 
; ¢ 126 Begin 
; : ? ? Exclude_status = true ; 
; 5 1 § 4 If .dev_selection_required 
; 1 4 Then 
; 1254 ; Begin 
: 1255 If (.entry status AND .dev_cls_status) OR 
3 yo : 28 (.dev_Etype_entry_sts AND .dev_cls_status) 
; 69 1258 Exclude_status = false ; 
eect |e | 
; egin 
; 695 1 o¢ 5 I} .dev.type_entry.ste AND .dev_cls_status 
3 696 1265 5 Then 
3; 8 1264 6 Begin | 
3 eos : #4 6 Exclude_status = false ; 
: 700 1507 § Else | 
; 701 1268 § Begin 
3 A : 34 : If (NOT .dev_type_entry_sts AND .entry_status) 
Ps n 
; 704 1271 6 Exclude_status = false ; | 
; 705 1 Le: 5 $ | 
; 706 1275 4 End ; 
: 707 1274 End ; 
; As : 4 , End; ! of /exclude processing 
: a 1 IF /exclude option match, exclude_status = false. 
; ag 1 
Re BRS 
; rig ' Determine whether to count logmessage/logstatus entries. 
: 718 1 if ( (.include_status) AND (.exclude status) AND 
3 ah, ! . (.parser_datalerl$b_rpt_type] EQC full_rep) ) 
; 721 1 ' 
3 g ' Determine if it was a logmessage/logstatus entry. 
3 726 1 Begin 
; 725 1 If Pees pore Pig entry] EQLU EMBSC_SP) OR 
3; 7 $ 1 & (,embCemb$i_hd_entry] EQLU EMBST_LM) 
3 i } Then 
: 7 5 1 i Count the number of Logmessage/logstatus entries 
3 i : : : that might be skipped. 
: 732 1 INTERVENE_INCREMENT (Lstlun) 
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Else 
] 


i qoveratne whether to outeyt the Logetetue/ segnessege 
} intervening message and if necessary output it. 


INTERVENE_OUTPUT (Lstlun) ; 
End ; 


Determine if the entry met the selection criteria. 
Determine if this is an unknown entry. 


tence acecesase 
zs 


f .unknown_entry 
n 


e 
! Indicate that this is an unknown entry and return with a 
true value so that it will be output. 


Return true ; 
If (NOT .include_status) OR 
T .exclude_status) 
Then 


i Indicate that the entry should not be output by 
returning to the calling routine with a false value. 


Return false ; 


i Indicate that the entry should be output by 
: returning to the calling routine with a true value. 


Return true ;: 
1 End ; ' Routine 
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-TITLE RECSELECT Entry Validation 
-IDENT \V04-000\ 


-PSECT SOWNS,NOEXE, PIC,2 


0000 LSTLUN: .BLKB 4 
0004 DEV _SELEC 1 TON REQUIRED 


.BLKB 
00005 DEVICE_STATUS: 
-BLKB 
00006 DEV_CLS_STATUS: 
00007 DEV_TYPE_ENTRY, STS: 
00008 ENTRY_STATUS: 
BLKB 


° 1 

p00? -BLKB 5 

00000000 QO000C VALIDATE_PKT STS: 
“LONG §=0 


RECSELECT Entry Validation Leste ai BSG: 85 YANN] a ae82,v4.0276 rage 


70 28 25 18 BUGCHKS: sf 7, 40, 112 : 
2A 29 27 26 246 23 20 18 © CONTROL: ‘BYE 2, 35, 36, 38, 39, 41, 42 ; 
64 6 1 2 Sey FERRO RS: 
9 7 -BLKB 1 
08 06 8 MEMORYS: .BYTE » 3 : 
6 A -BLKB 
41 40 C VOLUME: .BYTE 4, 65 ; 
sEXTRN EXEC_IMAGE, INTERVENE_INCREMENT 
“EXTRN INTERVENE OUTPUT 
~EXTRN SEARCH QUEUE. VALIDATE_PACKET 
eEXTRN ERF_INCENTRY, ERF UNKCCASS 
SEXTRN ERF-UNKCPU "ER xyhxe 
“EXTRN ERF-UNKTYPE 
“EXTRN DEVICE CLASS, “DEvite _TYPE 
-EXTRN EMB, ERCLUDE_FLAG 
~EXTRN EXCLUDE MASK? > INCLUDE_MASK 
-EXTRN OPTION F PARSER_DAT 
-EXTRN PROCESSOR TYPE seat _DISPATCHER_ADDR 
"EXTRN SUMMARY _FCAG, SYE 


«EXTRN UNKNOWN_ENTRY 
-PSECT SCODE,NOWRT, PIC,2 
OFFC 00000 -ENTRY RECORD. SELECTED, Save R2,R3,R4,R5,R6,R7,R8,-; 


oo ee ee a ee ee Ee Ee Ee ee eee 


B 00 900006 00 9E 0000 MOVAB PARSER’ DATA, Rit : 

A 000000006 00 9€ 000 MOVAB EXCLUDE MASK, R ; 

9 000000006 00 9E 0001 MOVAB OPTION FLA : 

§ 99 006 00 9E 0001 MOVAB CYECOMTDE. RB : 

000006 00 9€ lg MOVAB INCLUDE MASK, R7 : 

: 0000006 00 9€ 000 MOVAB EMB+4, ; 

55 00000000' 00 9 00 g MOV ENTRY STATUS, RS : 

E 4 € SUBL2 #4, SP : 

4 1 90 000 MOVE a, INCLUDE _STATUS : 

3 19 0 MOVB KCLUDE "St STATUS ; 

F8 aS OF As D0 fd MOVL Sy vécon TLUN : 
000000006 0 i 0 i CALLS 3} aA pare PACKET : 
000000006 00 1 , MOVL UNKNOWN_ENTRY : 
000000006 6 D4 1$ CLRL §_ UNKNOWN_ENT ; 

5 9 D0 A 2$ MOVL OPTI ON FraGe F 

27 : e D BBC #14, (RO), is”? ; 
000000006 D MOVL § SUMMARY FLAG, RO : 

07 6 E S #2, (ROY, 3$ : 
4 E C BLBS ~E-—« (RO), 3 ; 

15 60 E1 $f C BS (rd), 4$ ; 
6E 5 00 3$ vi #5; (SP) : 

D 0007 PUSHL : 

000000086 f ; PUSHAB RY DISPATCHER _ADDR ; 

000000006 00 FB Ob CALLS Sipmany Disp ; 


Entry Validation 


00 


PALM AACA 


COOONMOOCOCOCCOO 


owo— 
oo 
@ 


TNH HMMMmnrn 
orm 


Samnwnoo 


&Oovuno-co = 
<9 (FO FIOM 9 —- STON OO O-"- DWOMIOMMmMmmmnomnowrtoow-am 


Beene BeBe S oS asm SSS2SS=RSAS SSS ooo Oo LwSos oe 


i=) ya ee ee TA te 


Ie 
WOOD OVUW"DNWOO > 


SOS SOOCOOSOSCOSOSOSOSCSOSSOSOSOSSSOSOSOSOOSOSOSOSOSOSOOOSOSOoOSoOoOO 


SOoooooooooooQoooooqoQoQooQooooooooooooooo 
Oe el dd ed ed ad ad od ed ed ed md md = QO OOOO OOOO OOOOOCOOCOOCO 
J 


COw—C OM SS OO OM 


pal9ee f2i28:02 — Lenr.sacineesetect-030;1 
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Set Fo 


MOVZWL EMB+4, -(SP) 
PUSHL 


WERF _INCENTRY 
#3, CIBSSIGNAL 


EXCLUDE MASK, RO 
#8, ( $ 
i 

13, 
INCLUBE MASK 
wig, (RO), af 
OPTION_FLAG, RO 
(RO) 


I 
’ . 
’ (RO), 
#9, (RO), 7 
Ld ° 
2(RO) 


$ 
SYECOM+24 

10$ 

#1, SYECOM+24 
OPTION FLAG, R2 
#3, (R2), 118 
SYECOM, R1 
PARSER DATA, RO 
Ri 5TRO) 

R1, 21(RO) 

(R2), 14$ 

#5, PARSER_DATA, RO 
Ass, 

R1, 4(RO) 

A, (RO) 

#1, SYECOM+30 


i. (R2), 16$ 
13, PARSER_DATA, RO 
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3; 77 1 1 ROUTINE VERIFY_ENTRY = 

; 77 1 35 Begin =f | 
s 77 1340 

s 775 1341 '4+ 

; 77 1 tg ! 

s 77 134 ! Functional Description: 

: 778 1344 i 

; 779 1345 i This routine will determine if the current entry, ae 

; 780 1 r¢ i any of the selected entry types. It return TRUE if the 

; «781 134 i current entry matches or return FALSE if the hh. entry 

: ree : : does NOT match. 

; 78 1350 2 | Calling sequence: 

: 785 1351 2 | | 
ee 1 26 i VERIFY_ENTRY () 

; fr 135 i 

3 788 1354 i Input parameters: 

; 789 1355 ! 

; 790 1 28 i None 

: 791 135 i 

; 79 1358 i Output parameters: 

: 79 1359 i 

; 794 1360 i None 

: 795 1361 i 

:; 796 1 $6 ine 

3; 797 136 

; 798 1364 

; 799 1365 ! 

; 800 1366 ! Initialize a status indicator. 

; 801 1367 ! 

; 1368 Dev_selection_required = false ; 

: 680 1369 

: 804 1370 : : 

3 Boe ' 4 : Determine if device attention entries are selected. 

; 807 1 ig it (toxclude _maskCexc$v_dev_attentions]) OR 

; 808 1374 - inc Lude_maskLinc$v_dev_attentions])) 

Bees bene 

; ai} ' A Determine if this entry is for a device attention. 

: B18 1379 be gin | 
: 14 1380 Dev_selection_required = | 
+ 815 1 81 If semb emb$w_hd_entry] EGLU * EhBSK _DA 

: fe fg gS the | 
3 18 1384 ! Indicate that cots outry does match a selected entry 

: 819 1385 ' type, or re returning to the calling routine with a 

: : : e? } true value 

3 § 1 3 Return true ; | 
3 1 3 End ; 

$ 4 1 

: 5 1391 ! 

$ $ 1 4 : Determine if bugcheck entries are selected. 

; 8 1394 If ((.exclude_maskCexc$v_bugchks]) OR 
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Then ne ute _maskl incSubupchhs])) 


! Determine if this entry is for a bugcheck. 


Begin 
Incr I from 0 to 2 do 


Begin 
i -embCemb$w_hd_entry] EQLU .bugchksl.1] 

en 

! 


i Indicate that this entry does match a selected 
! entry type, by returning to the calling routine 
with a true value. 


Return true ; 


End ; 
' 


Determine if ‘control entries’ are selected. 


if Bb ed pee geet 9 te Sepa it Remar OR 
(. include_maskLinc$v_control_entry])) 


Then 


! Determine if this entry is a ‘control entry’. 


Begin 
Incr I from 0 to 6 do 


Begin 
If .embCemb$w_hd_entry] EQLU .controlC.1) 
Tnen 
i Indicate that this entry does match a selected 
! entry type, by returning to the calling routine 
with a true value. 
Return true ; 
End ; 
End ; 
: 
; Determine if ‘cpu entries’ are selected. 
if Cs que jude mock} excey cou_ontry 3} OR 
-include_masklinc$v_cpu_entryJ)) 
Then | 


Determine if this entry is a ‘cpu entry’. 


Begin 

Incr I from 0 to 7 do 
Begin 
If .embLemb$w_hd_entry] EQLU .cpul.1] 
Then | 
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! Indicate that this entry does match ? selected 
' entry type. by returning to the calling routine 
with a true value. 


Return true ; 


End ; 


! 
Determine if device errors are selected. 


if }-gue jude meokhenctvdev_errers ) OR 
(.include_maskLinc$v_dev_errors])) 

Then | 
Determine if this entry is a device error. 

' 

' 


Begin 

Dev_selection_required = true ; 

Incr 1 from 0 to 2 do 

egin 

If .embCemb$u_hd_entry] EQLU .dev_errors(.1] 
en 


i Indicate that this entry does match a selected 
! entry type, by returning to the calling routine 
with a true value. 


Return true ;: 
End ; 
End ; 


i Determine if machine checks are selected. 


if ag med pre yore fied Mignone teed ) OR 
(. include_masklinc$v_machine_chksJ)) 
Then 


Determine if this entry is a machine check. 


Begin 
If .embCemb$w_hd_entry] EQLU EMBSK_MC 
Then 


i Indicate that this entry does match a selected 
! entry type, by returning to the calling routine 
with a true value. 


Return true ; 


‘ 
Determine if memory entries are selected. 


if ((.exclude_maskCexc$v_memory)) OR 
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3 383 } $ Ba include_maskCinc$v_memory])) 

; 945 151 

; 89 } : | ; Determine if this entry is a ‘memory entry’. 

; 9% 1514 

; 94 1515 oy 1 {ron 0 to 1 do 

; 950 1 1 4 Begin 

; 951 1517 4 it -embLemb$w_hd_entry] EQLU .memorys(.1) 

: 926 1213 ¢ hen 

; 9 1819 «4 ' 

3; 954 1820 4 ' Indicate that this entry does match a selected 
3 92 1521 4 ! entry type, by returning to the calling routine 
3 328 1 § 4 ' with a true value. 

; 95 15 4 ' 

; 958 1826 4 Return true ; 

; 959 13 5 End 3 

: 960 1 § End ; 

; 961 15 

3 ong 1528 : 

3 a2 1 4 Determine if device timeouts are selected. 

; 965 1531 if {exclude _maskCexc$v_dev_timeouts]) OR 

: 966 15 § (. inc lude_maskLinc$v_dev_timeouts])) 

; 967 15 en 

: 385 1836 ib ine if thi is a device ti 

: etermine this entry is a device timeouts. 

; 970 1336 ! 

3; 971 133 Begin 

3 44 1338 Dev_selection_required = true ; 

3; 974 1540 i. conbLonbtu_ hd_entry] EQLU EMBS$K_DT 

: 975 1541 

: 976 1366 ar 

3; 977 154 i Indicate that this entry does match a selected 
; 978 1544 i entry type, by returning to the calling routine 
: 979 1545 with a true value. 

: 980 1546 

; 981 1547 Return true ; 

3 oa¢ 1548 End ; 

: 98 1549 

; «6984 1550 

; 985 1551 ‘ 

; 9 1336 ' Determine if unknown entries have been selected. 

3; F 15 !' If unknown entries have not been excluded, then see if this is an 
3 43 1328 } unknown entry. If it is set UNKNOWN_ENTRY true. 

r oar 1328 Initialize the unknown entry indicator (not an unknown entry). 
; 99 1228 if ({-exc tude _maskCexc$v_unknown_entry]) OR 

; 99 155 (. inc Lude_masklinc$v_unknown_entry])) 

3 994 1560 Then 

; 995 1561 ' 

: 36 1 $6 Determine if this is an unknown entry. 

; 99 156 ! 

; 998 1564 Begin 

; 999 1565 If .unknown_entry 
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Then Return true ; 
nd ; 
: 
Determine if unsolicited mscp entries are selected. 
if (( exe Lude_maskfexc$v_unsol mscp}) OR 
(. include_masklinc$v_unsol_mscpJ)) 
Determine if this entry is an unsolicited mscp entry. 


Begin 
if -embCemb$w_hd_entry] EQLU EMBSK_LOGMSCP 

en 

' 


i Indicate that this entry does match a selected 
! entry type, by returning to the calling routine 
with a true value. 


Return true ; 


' 
} Determine if volume changes are to be excluded. 


if ((.exclude_maskCex au yolune)) 
(. inc Lude_maskCinc$v_volume]) ) 
Then 


Determine if this entry is a volume entry. 


Begin 
Dev_selection_required = true ; 
Incr I from 0 to 1 do 
egin 
If” enbCenb$uhd_entry] EQLU .volume[.1] 
en 


i Indicate that this entry does match a selected 
! entry type, by returning to the calling routine 
with a true value. 


Return true ; 
End ; 
End ;: 


i Indicate that this entry does not match any of the selected 
! entry types, by returning to the calling routine with a 
false value. 


Return false ; 
End ; ' Routine 
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acca 218 
R I 


CL 

MOVIBL MEMORYSLI], R2 
CMPW ORG, EMB+4 

BEQL Ss 3 

AOBLEQ # 1. 9$ 

BLBS 2(R1); 22$ 

MOVL INC UbE_MASK, RO 
BLBC (RO), 2 

MOVE #1, DEV SELECTION REQUIRED 
CMPW gees. ] 

BEQL : 

BBS #19, (R1), 258 
MOVL INCLUDE MASK, RO 
BBC #19, (ROD, 268 
BLBS | UNKNOWN ENTRY, 32$ 
BBS #17, (RT), 278 
MOVL INCLUDE MASK, RO 
BBC #i7, (RO), 298 
CMP Bna+4, #161 

BEQL 2$ 


BBS #18, (R1), 308 

MOVL §INCLUDE_MASK, RO 

BBC #18, ( 

ROVE #1, DEV_SELECTION_REQUIRED 
MOVZBL VOLUMECI), R1 

CMPW OORT, «EMB+4 

BNEQ 33% 

MOVL #1, RO 


R 
AOBLEQ #1, I, 31$ 
L RO 
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GLOBAL ROUTINE DEVICE_TYPE_ENTRY = 
Begin 


ww 
oon 


tee 
' 


i Functional Description: 


This routine will determine if the current entry is a device 

type entry; (device attention, device error gevice timeout, 

volume dismount, volume mounts. It return TRUE f the current 
gotty matches any of the device type entries or return FALSE 

if the current entry does NOT match. 
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Calling sequence: 
DEVICE_ENTRY_TYPE () 


WSSSSSESSSSSS 


7 

by Input parameters: 
075 ee 
878 None 
a4 Output t 

ut parameters: 
079 put p 

None 
Device_entries: VECTOR ([6,byte,unsigned] ! Storage for device type 
' entries. 
Initial (BYTE 
K_DA, ' Device attentions 


' Device errors 
! Device timeouts 


mana 
sam 
owz 
PAW 
oe 
a 

« 

es. 


EMBSK_SP ' Log message 
EMBSK-LOGMSCP)) ;! Unsolicited mscp msg 


MAUI 


t 
: Determine if the current entry is a device type entry. 


WN =O OCONAUE WN 2 OOBNAUE WOO 


SSO. 


incr 1 from 0 to 5 do 


ee a aaa a na ek a at a a a a as as a ot 


a at a a a at a a dd dt dd ds — 4 4 


Be Se Oe Be Oe Se Ss Se Ge Se Se Se Se Se Se Fe Se Fe Sse Ge Ge Se Se Ge Se Se Se Se Se Se Gs Ge Se Ge Se Se Se Se Se Ge Ge Ge Se Se Se Se Se Se Ge SH Se Se Se Se Se esas 


664 egin 
199 665 If). embCemb$w_hd_entry] EQLU .device_entries(.1] 
101 006 Then 
106 66 } 
Hy 668 ! Indicate that this is a device type entry. by 
'e4 $69 returning to the calling routine with a true value. 
1 671 Return true ; 
199 O76 End ; 
108 67 
109 674 } 
110 675 ! Indicate that this is NOT a device type entry, by returning 
1 676 to the calling routine with a false value. 
118 678 Return false ; 


<z 


9 
RECSELECT Entry Validation hase -1984 23:52:05 AX-11 Bliss-32 V4.0-74 e 9 
yO eb00 12-80 8- 198 #3:38:93 LERF SREIRECSELECT B32, cae db 
3 1116 1678 ; 
3 1115 1680 End ; ! Routine 
-PSECT SOWNS,NOEXE, PIC,2 


2 


00 -BLKB 
65 63 64 60 01 62 30086 DEVICE_ENTRIES: 
-BYT 98, 1, 96, 100, 99, 101 3 


«PSECT $CODE,NOWRT, PIC,2 


0000 00000 sENTRY DEVICE_TYPE_ENTRY, Save nothing 1622 
50 04 00002 CLRL 1665 
51 00000000°0040 9A 00004 1$: MOVZBL DEVICE _ENTRIESCIJ, R1 
000000006 00 a 8 ; CMPW R1, EMB+4 
50 1 06 0 #1, RO 
04 00 
E7 50 5 F3 8 #5, I, 1$ 
0 D4 CLRL RO 1678 
04 00 RET 1680 


; Routine Size: 32 bytes, Routine Base: S$CODE + 04C1 


; 1116 1681 1 


CooQooooocoeo 
3 SIO 
"SO OOVWO 
~ 
wn 
+ DIw 
$ oz 
<m 
- -o 
m m 
o 
Sete Se Se Ge Ge Se Ge Se & 
—_> — 
oe Oo 
awn 
w= 


9 
eres CT Entry Validation 1S-se 
14-Se 


: 1 
a 
; 1 
3; 3 
7 | 
3 1 
3 3 
3; % 
3} 
3 7 
3 3 
3 
3 1 
3 7 
3; 1 
3; 7 
3 1 
3 } 
3 1 
3 7 
3 7 
; 7 
3 7 
3; 1 
37 
3 7 
; 1 
3 7 
3; 7 
3 
3 7 
3; 7 
; 1 
3 7 
3; 7 
3 7 
3 7 
3 7 
3 7 
3s 3 
31 
3 7 
3; 7 
3; 7 
3; 7 
3 7 
3; 1 
3 7 
3 
3; 7 
3 7 
37 
3; 7 
3 7 
3 7 
3 7 
3 7 


pai9ee 2:28:02 — LEnr-sRedecsevecT-032;1 sgt 


ROUTINE VERIFY_DEVICE_CLASS = 
Begin 


POAAAAO 


f the current entry does NOT matc 
Calling sequence: 
VERIFY_DEVICE_CLASS () 
! Input parameters: 
None 
Output parameters: 


BVI SSeS 


None 


SII INI OO OA AOOAOA AO 


Oo 
w 


i Determine whether this is a unsolicited mscp entry and 
whether to continue. 


if -enbCembSu_hd_entry] EQLU EMBSK_LOGMSCP AND 
NOT .include_maskLinc$v_disks] AND 
NOT .include_maskCinc$v_tapes] 


ooo 


MEUM 9 OOVNOAUE WN O OONOUS WN OO 


hen 
Return false ; 
1 
: Determine if ‘'BUS' entries are selected. 


if ((.exclude_maskCexc$v_buses}) OR 
-include_maskCinc$v_busesJ)) 
Then 


i Determine if the device recorded by this entry, matches the 
selected device class. 


Begin 
If (C,embCemb$w_hd entry) EQLU Pes LM AND 


-emb’ emb$b_li_cTass] EQLU DC$_BUS)) OR 


((.,embCemb$w_hd_entry] EQLU EMBSK_SP AND 
-embCemb$b_sp_cTass) EQLU DC$_BUS)) OR 


(,embCemb$b_dv_class] EQLU DC$_BUS) 
Then 


' 
i Indicate that this entry does match a selected device 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


1 
: 
1 
- 
5 
; 
0 
1 
5 
8 
9 
40 
re. 
i 
G4 
43 
46 
47 
48 
a9 
50 
2) 
s 
54 
55 
$ 
H 
59 
60 
6 
5 
64 
65 
66 
67 
i 
4 
i 
74 


em me a a a a ed ad a ad ds a ws — a 4 SS 


1 

\+¢ 

' 

: Functional Descrir* ion: 

This routine will determine if the device recorded by the 

: current entry mogenes any of the selected device class(es). 

t return TRUE if the current entry matches or return FALSE 

i 

i 

i 

i 

' 

i 

i 

i 

: 

i 

i 

i. | 
| 
| 
| 

; | 

} 


fh nah eae ete oe AU Coren ite es Ser 2S 


<2 
om 


| 
| 
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' class, by returning to the calling routine with a 
true value. 


| 


oo Sear eal e al tal tal tal al alt al tal oot oot oe oe ot oe ot oe ot okt 


Return true ; | 
nd ; 
! 
Determine if "DISK' entries are selected. 


if Aj «que tude mesktoncdv disks ) OR 
(. include_masklinc$v_disks])) 


i Determine if the device recorded wy this entry, matches the 
selected device class. 


Begin 

If oC (emb emb$w_hd_entry] EQLU EMBSK_VM) OR 
(.embLemb$w_hd_entry] EQLU EMB$K_VD)) 

Then 
i Determine if the device recorded by this volume 
mount or dismount is a ‘disk’ type device. 


Begin 
1f NOT TRANSLATE_CLASS (embCemb$t_vm_namtxt],DC$_DISK) 
en 


MEUM —OOODNOULS WN" OVOONOUSWN—0O”0 


a a a ee a a ee ee a ce a a ee a ad dd 


4 
| 
4 
2 64 4 
4 
3 6 a ; 
67 & ! Indicate that the device recorded by this | is 
§ 68 4 ! not a ‘disk’, by returning to the calling routine 
+4 : with a false value. 
20 71 4 Return false 
0. ie; 4 
20 73 4 Return true ; 
$\ RR ; End : 
$1 76 «5 If ( ((C.embCemb$w_hd_entry] EQLU EMBSK_LM) AND 
$i a ; (.embCemb$Sb_Tm_class] EQLU DC$"DISK)) OR 
5} 79 «5 i agesongee hd_entry] EQLU EMBSK_SP) AND 
: 3 : (,embCemb$b_sp_class] EQLU DCS_DISK)) OR 
\ 8¢ ? Entry type must be either a device error, timeout, or attention. 
2 84 4 ’  (,embCemb$b_dv_class] EQLU DC$_DISK) ) 
3? Then 
6? i Indicate that this entry does match a selected 
8 ' device class, by returning to the calling routine 
89 ! with a true value. 
790 : 
791 Return true ; 
8 P36 
9 79 } 
$34 oe Determine whether this is disk related unsolicited mscp entry. 


—————S|— 


9 
MO ee ee ee 1ESgpc498e GH:SH:EE  WEMsTLaehaasadZev4-0524 Pee 85 


3 3 179 If .embCemb$w_hd_entry] EQLU EMBSK_LOGMSCP AND 
3 : : 1787 CHSEQL (Scenbtdriver typed. »CASPTR(uplit("DISK"))) 
3 n 
3 ; 5 1739 } Yes, return to the calling routine with a true value. 
3 1 1 8 Return true ; 
; : io 18 
5 ' 2. 198? } Determine if ‘REALTIME’ entries are selected. 
3 1 rk 138 If Cf -guc Luge paskbexcéu_reatt ine ) OR 
: 1244 1806 (.include_maskLinc$v_realtime])) 
3: 1245 1809 Then 
3 rf 1810 ! 
3; 124 1811 ! Determine if the device recorded by this entry, matches the 
> 1248 18g ! selected device class. 
3: 1249 181 : 
: 1250 1814 Begin 
: 1251 1815 If .embCemb$b_dv_class] EQLU DC$_REALTIME 
37 25 1816 Then 
° 1 5 1817 . 
3 1254 1818 ! Indicate that this entry does match a selected 
: 1255 1819 ! device class, by returning to the calling routine 
3:7 28 1820 ! with a true value. 
; 125 1821 ! 
: 1258 18 § Return true ; 
: 1259 18 End ; 
Ser 1838 3 
3 1606 1366 Determine if "SYNCHRONOUS COMMUNICATION’ entries are selected. 
3 1264 1856 If gue jude _noskLexciy syne comn)) OR 
; 1265 13¢p (. include_maskLinc$v_sync_comm])) 
3; 1266 1830 § Then 
3: 1267 1831 ! 
3: 1268 1356 3 ! Determine if the device recorded by this entry, matches the 
: 1269 183 ' selected device class. 
: 1270 1834 ! 
3 1271 1835 Begir. 
3; 127 1836 If .embCemb$b_dv_class] EQLU DC$_SCOM 
3; 127 1837 Then 
3 1274 1336 } 
; 1275 1373 ! Indicate that this entry does match a selected 
3; 1276 1840 ! device class, by returning to the calling routine | 
3 ; As 13 with a true value. 
3; 1279 1868 Return true ; | 
: 1280 1844 ; 
3 ise) 136? 
3 ! Determine entries are selected. 
1288 1347 Determine if ‘TAPE entri lected 
: 1285 1 : If {que tude_macktexciv_ tapes ) OR | 
3; 1 a6 1850 (. include_masklinc$v_tapes])) 
: 128 132) 
3; 1288 1852 


- PSELECT 


89 


97 
98 
99 
00 
4 
08 
04 


Be Se Se Be Ge Se Be Se Ge Se Se Se Fee Fe Se Se Se Se Se Ge Fe Fe Ge FF Ge FH Gs Ge SH Se Se FHS Se SF Se Se Se Ge Se OH SH Se SESH Ss Se Se Se Se Se Se Se ssese 


INN. AAAI AI AIR PUPP NOPINININIDS 4 2 OS S OOO 


ae ee ee a a ce ee ee a ee ee ee a ee ee ee a a a a ed dd 
MEWN—O 0 


Www 
FT at et et 
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! Determine if the device recorded by this entry, matches the 


selected device class. 


Begin 

If 7<(cemb enbéu hd entry) EQLU EMBSK_VM) OR 
. (,embLemb$w_hd_entry] EQLU EMBSK_VD)) 

en 


60 ! : 
61 ! Determine if the device recorded by this volume 
$6 mount or dismount is a ‘tape’ type device. 
64 Begin 
a bes TRANSLATE_CLASS (embCemb$t_vm_namtxt],DC$_TAPE) 
n 


i Indicate that the device recorded by this entry is 
' not a “yepe. by returning to the calling routine 
with a false value. 


| 
| 
Return false 
“Return true ; 
| 
| 
| 


If ( (C.embCemb$w_hd entry] EQLU EMBSK_LM) AND 
(,embCemb$b_Tm_class] EQLU DC$_TAPE)) OR 


((.embCemb$w hd.entry3 EQLU EMBSK_SP) AND 
(.embCemb$b_sp_class] EQLU DCS_TAPE)) OR 


Entry type must be either a device error, timeout, or attention. 


"  (,embCemb$b_dv_class] EQLU DC$_TAPE) ) 
Then 


600909 09 09 09 09 09 09 08 SIN NII SIN NNO AO OO 


i Indicate that this ened | does match a selected 

' device class, by returning to the calling routine 
with a true value. 

Return true ; 


i] 
: Determine whether this is tape related unsolicited mscp entry. 


If .embCemb$w_hd entry] EQLU EMBSK OGMSCP AND 
si CHSEQL (2 ,emBCdriver_type],2,CASPTR(uplit('TAPE'))) 
en 
Yes, return to the calling routine with a true value. 


SOSCCOOOODOOOO0OO 
SSLSSRENLSSSLVSSRIS LSSSVSAPAN oH SSanowron oe wT 


Return true ; 


a | 


OOO OO O00 00 0000 09 00 0d 09 9 00 00 09 0D CD OD OD 09 OD CD OD Od Cd CD OD CD C9 CD CD CD C9 CD 09 OD CD CD OP CD. 


' | 
Determine if ‘MISC’ entries are selected. 


me ae a a a ad a ed ed = nd = 2d od 


RIPOPOPOPIPIPIWI WI WWI WWII NI WINNIE BEB PMNS SUA BF PPP PEPE EPI BS Ptr 


ooono 


inf (( exc Lude_maskfexc $v misc ) OR | 
; (.include_masklLinc$v_miscJ)) 


10 
we i researcher 1Ebevetage @3:59:05 WM "ZaBhintsBle¥4- 0504 te 


:1 1919 ‘Then OC 
:1 1911 OC 
: 1 191¢ | Determine if the device recorded by this entry, matches the 00 
3 : Wiz selected device class. 8 
31 1915 ' Begin OC 
: 1 1916 i If .embCemb$b_dv_class] EQLU DC$_MISC OC 
i] 191 i Then O¢ 
: 1 1919 ' Indicate that this entry does match a selected OC 
: 1 1920 i device class, by -eturning to the calling routine OC 
: | 19 1 i with a true value. of 
: 41 19 § Return true ; oC 
. y 1924 End ; OC 
3; 1 1925 oC 
31 1926 2! OC 
: 1 19 , i Determine if ‘LP’ entries are selected. +4 
31 1929 2 ‘If (C.exclude maskfexc§v_tine_printr}) OR oC 
31 1930 i (. inc Lude-maskCinc$v_line_printrJ)) oC 
: } 1931 iThen Be 
3; 1369 1933 ! Determine if the device recorded by this entry, matches the oC 
: 1370 1934 ' selected device class. oC 
: 1371 1935 i OC 
31 2 1936 ! Begin OC 
: 137 193 ' If .embCemb$b_dv_class) EQLU DC$_LP 00 
; 1374 1938 2! Then 00 
3 1375 1939 ' 00 
: 1376 1940 i Indicate that this entry does match a selected oc 
: 1377 1941 i device class, by returning to the calling routine 00 
: 1378 1948 i with a true value. 00 
: 1379 194 i 00 
: 1380 1944 2! Return true ; 00 
> 1381 1945 2: End; 90 
; 1382 1946 2 od 
: 138 1947 2! o¢ 
: \see Mb | Determine if ‘JOURNAL’ entries are selected. oo 
3 1386 1950 2 !If ((.exclude_maskCexc$v_journal]) OR o¢ 
3 1387 1951 (. inc Lude~maskCinc$v_journal))) oC 
1380 1988 ° 3 o¢ 
3 1 1954 !' Determine if the device recorded by this entry, matches the oC 
; 1391 1955 ' selected device class. O¢ 
:1 3 1956 i OC 
: 139 195 Begin O¢ 
+ 1394 1958 2 i If .embfemb$b_dv_class] EQLU DC$_JOURNAL | 0¢ 
> 1395 1959 i Then Ge 
31 38 1960 ' 
3 139 1961 ! Indicate that this entry does match a selected OC 
; 1398 1906 ' device class, by returning to the calling routine O¢ 
3; 1599 196 ' with a true value. 0¢ 
: 1400 1964 i 0¢ 
3: 1401 1965 ' Return true ; 0¢ 
> 1402 1966 2: End; 0 
| i 
| 


10 
RECSELECT Entry Validation 1-se -1984 AX-11 Bliss-32 V4.0-74 
vos 14- Sep-1984 #3: 36 3 PAF SREIRECSELECT B32; 
3; 1403 1967 
: 14 1298 ! 
: 14605 139 ! Indicate that this entry does not match any of the selected 
: e's | 1970 ! device classes, by returning to the calling routine with a 
: 108 1971 ' false value. 
: 14 1376 ' 
3 14 197 Return false g 
: 1410 1974 End ; ! Routine 
PSECT SPLIT,NOWRT,NOEXE, PIC,2 
48 53 49 44 Q0000 P.AAA: .ASCII \DISK\ 
45 50 41 54 00004 P.AAB eASCII \TAPE\ 
-PSECT S$CODE,NOWRT, PIC,2 
003C 00000 VERIFY_DEVICE_CLASS: 
WORD Save R2,R3,R4,R5 
55 00000000G 00 9E 0000 HOVAB EXCLUDE_MASK, *R5 
54 00000000G 00 9€E 0000 MOVAB INCLUDE-MASK, R4 
53 000000006 00 9E 00010 MOVAB EMB+ \6., 5 
52 F4 AS 3C 00017 MOVZWL _ 
0065 28F 52 B1 0001B CMPW #i0 or 
11 is 0002 BNEQ Re: 
50 64 D BOOS MOVL a 4 MASK, RO 
OA 60 02 €0 328 8BS #2, ¢ 
50 64 DO 00029 MOVL INCLUDE MASK, RO 
03 01 AO 58 0002C BLBS 1(R0), TS 
010A 31 00030 BRW 28$ 
51 65 00 000335 1$: MOVL EXCLUDE_MASK, R1 
07 61 01 EO 00036 BBS #1, (R11), 2$ 
50 64 DO 0003A MOVL § INCLUDE_MASK, RO 
21 60 01 £1 00030 BBC #i, (ROY, 5$ 
0064 + 28F 52 B1 00041 2$ CMPW R2, #100 
06 12 00046 BNEQ 3$ 
80 8F 63 91 00048 CMPB EMB+16, #128 
77 +13 0004C BEQL 13$ 
0063 ~=—s« BF 2 61 etd 3$ CMPW R2, #99 
$ 12 5 BNEQ 4$ 
80 8F § 4 823 CMPB he #128 
i] 1 BEQL 16 
80 = 8F Oc A391 00058 4$ CMPB EMB+28, #128 
74 13 0006 BEQL iss 
07 1 02 £0 00062 5$ BBS #2, (R1), 6$ 
0 64 00 000 MOVL INCLUDE. MASK, RO 
45 60 Q E1 0006 BBC #2, (ROY, 118 
0040 = =8F "4 006D 6$ CMPW R2, #64 
4 0072 BEQL 7 
0041 ~=8F 2 a 74 CMPW R2, #65 
4 12 79 BNEQ 8$ 
1 OD 76 7$ PUSHL #1 
: 11 Bip BRB 208 
50 FG A 3c 7F 8$: MOVZWL EMB+4, RO 


Page (a 


Sete Se Se Se Se Se Se Sete Ge Ge Ge Se Ge Ge Fe Ge Fe Fe Se Ge Ge Ge Se Ge Se Se Be Se Se Se Se Be Be & 


; 1682 


; 1712 


; 1713 
; 1714 


~w 


i 
a 


1721 
1722 
1729 
1730 
1732 
1733 
1735 


1748 
1749 


1756 
1757 
1764 
1776 


egesccecessss’ eo SS2888888S833S83ssssssssssssssssssssss3ssss3s3a 


| 
Page 36 
=11 Bliss-32 V4.0-74 ( 
13-Sep-1984 $3:36:03 ERF /SRCIRECSELECT B32 1 | 
14-Sep-1986 12:28: | 
RECSELECT Entry Validation onew RO. #100 : 1777 
Q ; 
vee 0064 8F 38 § p ONee FMa+16, 1 ; 1779 
6 $0 Bi oor 98: CMP R 4! ‘feted 
50 I ‘ oe |. 1784 
soe é of 3 pel (Sas ; 
01 es a gme+28, 1 ; 1796 | 
01 ae O09F Pek RO, #101 : 1797 
OA 11 ; 
006s 0 a : 107 
00000000° 00 = i 13 ae 118: ove EXCLUDE MASK ; 1808 
$8 Fo 9008 MOVL INCLUDE. MASK, RO ; 1815 
4 2 60 00089 BBC’ OWS, CROT. a8 : | 
07 8) 06 £1 000BC 8 * ENG+28, 196 : 1828 
” so BF oe AS ! D00Cs 188: rea : 1829 
87 19 oc ROV’ INCLUDE MASK, RO : 
J ae 
64 00CB TSTB (RO) ; 183 
$5 $5 Soot. ere Enb+28, #32 : 1849 
oc AS 91 0002 Was: ROP a8 108 ; 1850 
20 . 00D : LBS 1(R1), RO ; 
eet eae a 7 
4° RO 
3A Pe AS. Se O00eS 188 ae Tat : 1858 
50 ee 6S Oat bate BEQL «=s«198 ee 
we «=O Be - 
0 8 BNEQ : 
41 8F 1 12 OOF :  PUSHL #2 : 
; BSA at: Be Heo Lo 
OF 03 Pe OOOFA SUBS nO, 27$ : 1877 
Vv 0101 28 : 
00000000 99 i ( 4 218 ROVZUL RO, #100. an 
0064 8F 0 10F CMPB bmg 16. 
4 114 $:  — BEQL , #99 : 1881 
02 2 Ag Ratie ges: | PEC, RO, 
BD b0l18 3 i 2 : 1885 
" e SHB” Bf pbs. : 
02 97 33 3: Pe ENB+28, #2 ; 1897 
02 oc AS 9 126 268: BEAL RO, #101 : 1898 
0065 8F ae te 120 ty gmB+18, P.AAB ; 1902 | 
02 AS 8) Oot er BNEQ 8S | 
00000000" 00 bt 00 00189 278 Rov. I, | 
50 be 13¢ | 


Oe E8198 G3:SH:09 YeArtLabhaansdZed4 ade at 


50 yi Ootg? 28$: cLae RO 1974 


; Routine Size: 320 bytes, Routine Base: $CODE + 04E1 


; 1411 1975 1 


0 
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0 
0 
) 
Q 
Q 
) 
Q 
0 
0 
0 
0 
0 
0 
0 
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0 
0 
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0 
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0 
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0 
0 
0 
0 
0 
0 
0 
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—> tt 


OOONA NEW "OOONOUSW 


109 CD 09 C9 09 09 CO CD C908 INI NI 
DONA MNALS WO OONO 


WDOOODOOOOOOOOOOOO 


SPreresener 


Wwn—o 


oooo 
SERFoee 
Wms 


oooo 
o 
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MAA MAMAUIVIUIUIE BEELER EE EUW 
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OCONOULS WMO 


BFERLIS 
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in 
14 
14 
14 
‘4 
14 
1G 
14 
14 
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14 
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16 
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Routine VERIFY_DEVICE = 
Begin 


+4 
! 


Local 
Dev_name, 
Dev_name_length, 
ev_unit, 
Status ; 


Bind 
lm_name_length = emb 


emb$t_lm_devnam] : BYTE, 
sp_name_length = embLemb$t_sp_devnam] : grtee 


dv_name_length = embLemb$t_dv_name] : BY 


i Determine whether this is an unsolicited mscp entry and 
! return with a false value if so (logmscp entries are not 
! applicable to a specific device). 


i] 
' 
! 
' 
! 
if -embCemb$w_hd_entry] EQLU EMBSK_LOGMSCP 
en 
Return false ; 


i Determine the type of entry so that the comparison for the 
: device class is made against the appropriate field in the entry. 


i Determine if this a log message entry. 


' 

' 

If .embCemb$w_hd_entry] EQLU EMBSK_LM 

Then 

i Entry type is a log message, get the device name, 
} name length, and unit number. 


Begin 
bee none = embCemb$t_lm_devnam] + 1 ; 
Dev_name_length = .lm_name_length ; 
poy unit = .embCemb$w_lm_unit] ; 
n 
Else 


: Determine if this is a log status entry. 
Begin 

If .embCemb$w_hd_entry] EQLU EMBSK_SP 

Then | 


i Entry type is a log status, get the device name, 
} name length, and unit number. 

Begin 

Dev_name = embCemb$t_sp_devnam] + 1 ; 


10 
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' 
o4 
04 
03 
Q3 
03 
03 
Q3 
03 
03 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
a 
04 
04 
04 


the device name, name length, and unit number. 
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RECSELECT Entry Validation 18.30 -1984 23:52: AX-11 Bliss-32 V4.0-74 Page 39 . 
vos 12-Sep-19 4 73:38:03 YERF SRE REeserett o3074 ° a 
47 Dev_name_length = .sp_name_length ; 
eft pey_unit's exbCenbeursp Unies’: 
n | 
ar Else. | 
of? Determine if this a volume mount/dismount entry. 
a7 Begin 
rth If $f emp} onpiu_hd entry EQLU EMBSK_\'M) OR 
4 (.,embLemb$w_hd_entry] EQLU EMBS$K ¥vD)) 
cB 8 Then | 
8¢ 04 i Entry type is a either a vulume mount/dismount, get 
84 04 
85 
89 
88 
89 


NAME WO ODNAL EW "OOOO w 


Dev_name = embLemb$t_dv_name] + 1 ; 
Dev_name_length = .dv_name_length ; 


04 Begin 
04 Dev_name = embLembSt_vm_namtxt] ; 
05 Dev_name_length = .embCémb$b ya_naning) 3 
3 Dev_unit = .embLemb$w_vm_unit] ; 
n 
90 05 
91 05 : 
4 05 ! Entry type must be either a device error, device timeount, 
9 05 ! or a device attention, get the device name, name length, and 
94 5 ! unit number. 
OS bo 
egin 
97 ; 
98 


BEaey 


Dev_unit = .embLemb$w_dv_unit] ; 


a, 


aa ha a kk a a kd a ot = a 
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99 
00 End ; 
01 064 End ; 
Og 065 End ; 
4 bee 5 
05 ee ' Call the search queue routine to determine if the device recorded by 
36 5 34 : this entry matches any of the selected devices. 
4 Org Status = SEARCH_QUEUE (.dev_name,dev_name_length,dev_unit) ; 
10 07 ! 
11 074 ' Return the status from the search queue operation to the 
1 075 ! calling routine. 
1 076 i 
14 7 . Status 
15 078 End ; ' Routine 
| 


0004 00000 VERIFY_DEVICE: 


-WORD Save R2 : 1976) 
2 000000006 0 i HOVAB ENB +4, R2 : | 
5 : ic C ROVIOL Enbee RO : 1999 | 
0065 8F B F CMPW SCORO, #101 ; 


eh OSS OR SS OS OSLER EER L LLL LL LL LLL LLL LLLLLLLLLLLLLLLF] 


? 


"7 
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RECSELECT Entry Validation 15-Sep-1984 23:52: AX-11 Bliss-32 V4.0-74 4 RK 
dette d 122808-198e $338 503 AF SREIRERSECECT b3o0% eng | 
1 14 BNEQ ‘1 ; 
8 pf i CURL RO : 2001. 
0064 8F 50 81 00019 18 CMPW RO, #100 + 2009 
F If BNEQ 2 : 
51 1 Ad MOVAB €EMB+21, DEV_NAME : 1 
04 AE 10 Ad 9A 4 MOVZBL LM_NAME_LENGTH, DEV_NAME_LENGTH + 201 
bE OF A ¢ 9 mov WL bnb+i8, DEV_UNIT : 2018 
0063 &F 56 8} F 2%: CMP a. #99 : $98 
51 30 A 3 MOVAB £EMB+65, DEV_NAME : 032 
04 AE es 9A 6 A MOV ZBL SP _NAME LENGTH, DEV_NAME_LENGTH i 3033 
0040 =F § Bt 41 3$: CHP RO, #64 + 2041 
0041 8F th 8 bes CMPW = soRO, «#65 + 2042 
OF 12 00040 BNEQ ‘5$ : 
51 18 A2 GE OOO4F 4$ MOV ENB +31. DEV_NAME : 2049 
04 AE 1A A2.—sO9A_ (0005 MOVZBL EMB+30, DEV-NAME_LENGTH + 2050 
6E 18 A2 3¢ 0005 MOVZWL pmB+28, DEV-UNIT : g051 
0D 11 0005c BRB $ + 2041 
51 3B A2s«O9E «O005E 5S MOV EMB+63, DEV_NAME : 2060 
04 AE 3a a2 9A (0006 MOVZBL DV_NAME_LENGTH, DEV_NAME_LENGTH : 2061 
6E 26 A2 3C 00067 6$ MOVZ2WL EMB+42, ~DEV_UNIT > 2062 
SE DD 00068 7$: PUSHL SP : 2071 
08 AE OF 0060 PUSHAB DEV_NAME_LENGTH : 
51 DD 00070 PUSHL DEV_NAME ; 
000000006 00 03 FB 90078 CALLS #3, ~SEARCH_QUEUE com 


; Routine Size: 122 bytes, Routine Base: S$CODE + 0621 


; 1516 2079 1 
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RECSELECT Entry Validation 14.20 -1984 252: AX-11 Bliss-32 V4.0-74 Page 41. 
Vv S565 12-8 08= 1982 $3:38:93 EAF SREIRERSELECT B3o0% . (7) | 
: 151 0 1 GLOBAL ROUTINE TRANSLATE_CLASS (search_name,dev_class) = 
; 151 Begin 
P+ 1 0 § 
4 1 1 'e¢ | 
3 1 ; 8 4 ' 
3 | ? 5 Functional Description: | 
: 1525 6 : i —s- This routine searches the device tables to verify the device 
; : $ 8 } class and device name. | 
; : $ 844 ; Calling Sequence: 
; 13 O34 ; TRANSLATE_CLASS (search_name,dev_class) | 
: 15 094 i Input Parameters: | 
: 1838 095 Si 
3 1 ¢ 84 Search name = First two characters of device name 
: 15 098 i Dev_class = Device class to search for. 
iB 190 | 
: 1539 101 i If the device class is found, then the specified device name 
3; 1540 196 ‘ is compared ogatnst the device names in the device specific table. 
3 1363 + } Returns true if both match. 
: 1808 105 i Returns false if device class and/or device name doesn't match. 
3 15446 198 4 (This should eventually be caught and handled by the parse_devname 
3; 1545 10 ‘ routine.) 
3 1268 108 ! 
: 1547 109 !en 
3; 1548 110 
3; 15469 111 EXTERNAL 
; 1550 V6 Dev_addrs_ptr: REF VECTOR stone . 
3 1551 11 Dev_class_ptr: REF VECTOR C,word), 
3 1336 114 Max_classes: REF VECTOR L,byteJ; 
3; 155 115 
3 1554 11g OWN 
; 1555 11 I: BYTE Initial (1), ! Device address pointer index 
3 1326 118 Max_classes_value: BYTE ; 
3 1557 11 
; 1558 120 LOCAL 
3; 1559 121 Dev_specific_tbl: ii VECTOR C,word], ! Device specific table address 
: 1ee0 : ; K: Initial (0) ; ! Device specific table index 
; 136 124 2 BIND 
3; 156 125 Cs_mname = CHSPTR (uplit('CS')) ; 
1868 159 $5 
: 1268 128 i Device class ptr is the address of a table that contains supported device 
3 136 ; 3 : classes and pointers to the device class specific information tables. 
: 1369 131 i The device class specific table contains the supported device names, 
: 1570 1 § ! image name pointers (image that needs to get activated), and transfer 
3 1372 : 2 address pointers. 
31 7 135 i This routine locates the matching device class retrieves the device 
3; 1574 136 ! specific pointer and matches the specified device name against those 
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Entry Validation 13-50-1984 $3:36:08 ie Bliss ove Oree 


14-Sep-1 ERE LSREIRECSE 
} in the device specific table. 
: Loop through all of the device class entries. 
Max_classes_value = max_classes(0] ; 
Incr SE 1 to .max_classes_value do 
If .dev_class_ptr(.1] EQL .dev_class 
Then 
Begin 
} Get the address of a device class specific table. 
Dev_specific_tbl = .dev_addrs_ptrf.1] ; 


i Initialize another index for the device class specific table so don't 
! (ose the current position. Determine if the contents of the device 

! name field is valid OR whether the end of the device name entries 

in the table has been reached. 

K=1; 
Until (.K EQL .dev_specific_tbl(0]) do 

egin 

termine if the selected device name matches any of the 
vice names recorded in this table. 


e 
e 
CHSEQL (2, CHSPTR(.search_name), 2, CHSPTR(dev_specific_tblC.KJ)) 
n 


-----O--— 


ip 
ig 


——— 
a 


e 
' 
!' The device names match. Using the class dir table index, 
get the corresponding device class. 


Return true ; 
1 
! Update the device name pointer indices. 


' 
i] 
K= Kei; 
End ; 
End ; 
End ; 


The mame for the console device ‘CSA‘ is not included in the device name 
tables contained in ERFLIB.TLB. It really is a second device name for 
the RX device which is included in the device tables. There should be 

a table that includes devices Like these, however because there is only 
one at this time, it is checked for explicitly. 


f CHSEQL (2, CHSPTR(.search_name), 2, cs_name) 
en 


eG rt et ee mt emt mee 


' 
i This is a "CS" entry, determine whether the 'CS' device class 
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Entry Validation 15500-1984 $3:36:03 AX-11 Bliss-32 V4.0-74 


14-Sep-1 ERF.SRCIR eseLec T.B32; 
matches the device class being searched for. 


Begin 
If .dev.class EQL DC$_DISK 
The 


n 
! Indicate that the device class matches by returning with 
a true value. 


Return true ; 
nd ; 


1 
: Could not locate a class for this device name. 
Return false ; 

1 End ; ' Routine 


-——0O00 FSCS SSSSSF 
=SSRNS ARGOS DONO 


PROROROPORORORORONoNonon = 3 a 


-PSECT SPLIT,NOWRT,NOEXE, PIC,2 
00 00 53 43 00008 P.AAC: .ASCII \CS\<0><0> 
~PSECT SOWNS,NOEXE, PIC,2 


01 00036 I: .BYTE 1 
00037 MAX_CLASSES VALUE: 
.BLRB) 1 
CS_NAME= AAC 
JEXTRN DEV ABDRS PTR, DEV_CLASS_PTR 
~EXTRN MAX_CLASSES 
-PSECT SCODE,NOWRT, PIC,2 
00 8 00000 .ENTRY TRANSLATE_CLASS, Save R2,R3,R4,R5 
55 00000000° 09 9 90002 HOVAB MAX _CLASSES_VALUE, R5 
65 000000006 00 90 000 MOVE MAX _CLASSES, MAX CLASSES _VALUE 
54 9A 0001 MOVZBL MAX_CLASSES “VALUE, 
D4 0001 CLRL 
11 0001 BRB 
51 000000006 po 19 1$: MOVL He V CLASS. PTR, R1 
6140 3F PUSHAW (RIS 
9E 10 0 : CMPZV #0, #16, a(SP)+, DEV_CLASS 
0 BNEQ 3$ 
51 000000006 6 D MOVL § DEV_ADDRS_PTR 
33 6140 D0 MOVE (RISCII, BEV_ SPECIFIC _TBL 
63 6 09 FD 2s: CMP2V #0, #16, (DEV_SPECIFIC_TBL). K 
B BEQL © 3$ 
6342 04 BC 8 4 CMPW  § @SEARCH_NAME, (DEV_SPECIFIC_TBL)CK 
: 4 BEQL = 4$ 
5 06 4 INCL K 
EE 49 BRB 2$ 


zDD 
x 


esessssssseseeeeeS2SSSSeSSSLVVSSSSSSESSSSSSSEEESSSSSSSSESEF 
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10 
2h | i Sa Slee hpi sa -30-198e 93:38:03 FEAF Sredneesecect.ose+4 
_ (mpi RCEARCH NAME, CS_NAME 


1 

1 

A 54 F 48 
00000000' 30 04 BC ° 4F 

A 7 BNEQ 
A 9 CMPL EV_CLASS, "1 

D 
é 
6 
6 
6 


01 08 
| Ot 06 
50 1 4$: MOVL #1, RO 
50 04 00 5 


; Routine Size: 102 bytes, Routine Base: SCODE + 0698 


eEXTRN LIBSSIGNAL 

PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 56 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, PIC, ALIGN(2) 
SCODE 1793 NOVEC.NOWRT, RD - _EXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
SPLIT 12 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, R N, PIC,ALIGN(2) 


Bete Ce Ge Se Ge ee 


Library Statistics 


Ooo 
~ 


quceenee Syabholg ccce=--= Pages Processing 
File Total Loaded Percent Mapped Time 


~-$255$DUA28: CSYSLIBILIB.L32;1 18619 72 0 1000 00:01.9 


; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RECSELECT/OBJ=OBJ$:RECSELECT MSRC$:RECSELECT/UPDATE=(ENHS$:RECSELECT) 
Siz hey 1793 Hiny 68 data bytes 

Flapsed Hine: \ si 


Lexemes/CPU-Min: 
Memory Used: ig. tana 
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: Compilation Complete 
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